program todoslosrequisitos;

const
minRango=0;


type
	t = 1..2;
	enumerado = (primero,segundo,tercero);
	a = array [1..2] of e;
var 

 p : enumerado;


 procedure x (var s: enumerado);
 begin
	f(x,y);
 end;
end.
 